Sub lanza_muestra_elementos()
    Call cuenta("uno", "dos", "tres")
End Sub

Sub cuenta(ParamArray Lista_Elementos() As Variant)
    Debug.Print UBound(Lista_Elementos) + 1
End Sub
